home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Install_Magellan < prev    next >
Text File  |  1997-05-30  |  38KB  |  1,449 lines
  1. ; Script to install Directory Opus version 5.6 Magellan
  2. ;
  3. ; Directory Opus Install Version $VER: Install-Opus Magellan  (01.06.97)
  4. ; COPYRIGHT ©1996 GP SOFTWARE, AUSTRALIA
  5. ; note uses Opus<Alt-Shift>5
  6. ; now installs new catalogs if they are on the disk.
  7.  
  8.  
  9. (onerror
  10.     (makeassign "DOPUSDEST" (safe))    
  11. )
  12.  
  13. (complete 0)
  14.  
  15. ;
  16. ;check user has Dos 2
  17. ;
  18.  
  19. (set #DOSTYPE (/ (getversion) 65536))
  20. (if
  21.     (NOT (>= #DOSTYPE 37))
  22.      (abort "Directory Opus 5 benötigt AmigaDOS 2.04 oder höher."
  23.         " Bevor Sie Opus 5 benutzen können, müssen Sie auf V2.04 oder höher upgraden.")
  24. )
  25.  
  26.  
  27. (set @default-dest "Work:")
  28.  
  29. (set #Dopus_prog "DOpus5:DirectoryOpus")
  30. (set #Loadwb "C:LoadWb")
  31. (set #Loadwb_old "C:LoadWb_old")
  32. (set #Has_loadwb_old 0)
  33. (set #Has_loaddb 0)
  34. (set #Inst_choice 0)
  35. (set #HB_choice 0)
  36. (set #Changed 0)
  37. (set #Inst_core 0)
  38.  
  39. (set #DName1 "OpusMagellan")
  40. (set #DName2 "OpusMagellan")
  41. (set #Disk1_Name (cat #DName1 ":"))
  42. (set #Disk2_Name (cat #DName2 ":"))
  43. (set #Is_update 0)
  44.  
  45. (set #DOpus_Dest (getassign "DOpus5" "a"))
  46. (set #O_DOpus_Dest (getassign "DOpus5" "a"))
  47. (set #Go "Weiter")
  48. (set #Skip "Diesen Teil überspringen")
  49.  
  50.  
  51.  
  52. ;
  53. ; Procedure signal
  54. ; in case Opus is re-installed. The notification on the modules
  55. ; directory can cause problems so signal Opus to turn off notifications
  56.  
  57. (procedure signal_opus
  58.  
  59.     (set #Want_disk 1)
  60.     (get_disk)
  61.     (set #Sigs (tackon #Disk1_Name "dopusmsg"))
  62.     (if (exists #Sigs (noreq))
  63.         (run (cat #Sigs " DOPUS.1 \"command set notify off\""))
  64.     )
  65. )
  66.  
  67.  
  68. ;
  69. ; Procedure get_disk 
  70. ; get the correct disk for a program
  71. ;
  72.  
  73. (procedure get_disk
  74.  
  75.     (if (= #Want_disk 1)
  76.         (set #DiskName #DName1)
  77.         (set #DiskName #DName2)
  78.     )
  79.     (askdisk
  80.         (prompt #Title_msg
  81.             "\nBitte legen Sie die CD \""#DiskName"\" ein.")
  82.         (help "Legen Sie die CD ein, um die Installation fortzusetzen.")
  83.         (assigns)
  84.         (dest #DiskName)
  85.     )
  86.     (set #Current_disk #Want_disk)
  87. )
  88.  
  89. ;
  90. ; Procedure install_arexx  ;
  91. ; From Leo Davidson collection.
  92. ;
  93.  
  94. (procedure install_arexx
  95.  
  96.     (set #Title_msg "Installation des ARexx-Archivs.\n\n")
  97.     (if     (askbool (prompt #Title_msg
  98.                 "Wir haben ein Archiv mit ARexx-Skripten und weiteren Daten für Opus von "
  99.                 "verschiedenen Benutzern beigelegt. Die meisten Skripte erfordern eine "
  100.                 "weitere Installation nach Ablauf dieses Skriptes.\n\n"
  101.                 "Wollen Sie die ARexx-Archive installieren?\n")
  102.             (help "Ja, tun Sie's! Die sind großartig!")
  103.         )
  104.         (
  105.         (set #Changed 1)
  106.         (set #Want_disk 2)
  107.         (get_disk)
  108.         (working #Title_msg
  109.             "Installiere ARexx-Skripte.\n\n"
  110.             "Ein wenig Geduld...\n\n"
  111.             "Das dauert nicht lang.")
  112.  
  113.         (copyfiles 
  114.             (source "OpusMagellan:DOpus_Install/ARexx")
  115.             (dest #DOpus_Dest)
  116.             (infos)
  117.             (files)
  118.             (all)
  119.          (optional force)
  120.         )
  121.             
  122.         (run "c:protect DOPUSDEST:ARexx/#? +s")
  123.  
  124.         (message #Title_msg
  125.             "Die ARexx-Skripte sind installiert. Lesen Sie bitte "
  126.             "den Anfang der Skriptdateien für Informationen über "
  127.             "deren Funktion und die Benutzung.\n\n"
  128.             "Die Skripte sind in \"DOpus5:Arexx\", weitere Zusatzmodule sind in "
  129.             "\"DOpus5:Storage/Modules\", und einige der Zusätze haben AmigaGuides "
  130.             "die in \"DOpus5:Help\" sind. Es befinden sich außerdem einige neue "
  131.             "Piktogramme in \"DOpus5:Icons\".\n"
  132.             "\nZur Aktivierung der Module müssen Sie diese nach \"DOpus5:Modules\" "
  133.             "verschieben und Opus neustarten."
  134.         )
  135.         )
  136.     )
  137. )
  138.  
  139. ;
  140. ; Procedure install_mwbextras ;
  141. ; MWB_DOpus_8_Install 1.0 (11.8.96)
  142. ; Install originally written by Leo Davidson.
  143. ;
  144.  
  145. (procedure install_mwbextras
  146.  
  147.     (set #Title_msg "MWB_DOpus V8.0 Installation.\n\n")
  148.     ;- Introductory message 
  149.  
  150.     (if    (askbool (prompt #Title_msg
  151.                 "Entwickelt von Trevor Morris and Leo Davidson\n\n"
  152.                 "MagicWorkbench Toolbarpiktogramme und Hintergründe "
  153.                 "für Directory Opus Magellan (und andere Programme).\n\n"
  154.                 "Diese bieten ein hübsches Set von Bildern für "
  155.                 "Werkzeugleiste und Piktogramme, ob mit oder ohne MagicWorkbench."
  156.                 "\n\nWollen Sie diese in Ihrem System installieren?")
  157.             (help "Ja, tun Sie's! Die sind großartig!")
  158.         )
  159.         (
  160.         (set #Changed 1)
  161.         (set #Want_disk 2)
  162.         (get_disk)
  163.  
  164.     ;- Set where to do the install to
  165.  
  166.         (set #Target "DOPUSDEST:")
  167.  
  168.     
  169.     ;- Back-up the old Images drawer (if exists) and copy new images
  170.  
  171.         (if (= (exists "DOPUSDEST:Images" (noreq)) 2) 
  172.             (
  173.             (set #Tmp_msg "\n\nIhr altes Verzeichnis \"Images\" kann vor der Installation der neuen Bilder gesichert werden.")
  174.             (set images_exist 1)
  175.             )
  176.             (
  177.             (set #Tmp_msg " ")
  178.             (set images_exist 0)
  179.             )
  180.         )
  181.  
  182.         (if     (askbool (prompt #Title_msg
  183.                     "Die neuen Werkzeugleistenbilder werden"
  184.                     " ins Verzeichnis \"Dopus5:Images\" kopiert."
  185.                     #Tmp_msg)
  186.                 (choices #Go #Skip)
  187.                 (default 1)
  188.                 (help "Dieser Teil installiert alle Werkzeugleistenbilder.")
  189.             )
  190.             ( ; yes 
  191.             (if images_exist
  192.                 (
  193.                 (set #Bkup 1)
  194.                 (set #New_name (cat "Images" #Bkup))
  195.                 (while     (= (exists (cat "DOPUSDEST:" #New_name) (noreq)) 2)
  196.                     (
  197.                     (set #Bkup (+ #Bkup 1))
  198.                     (set #New_name (cat "Images" #Bkup))
  199.                     )
  200.                 )
  201.                 (if     (askbool (prompt #Title_msg
  202.                         "Wollen Sie Ihr aktuelles Verzeichnis"
  203.                         " \"Images\" sichern oder es mit den"
  204.                         " neuen Bildern überschreiben?\n\n"
  205.                         "Ihr altes Verzeichnis würde gesichert als "#New_name".")
  206.                     (choices "Ja - Sichern" "Nein - Überschreiben")
  207.                     (default 1)
  208.                     (help "Im Zweifelsfall wählen Sie Ja.")
  209.                     )
  210.                     (; backup Images
  211.                     (rename (tackon #Target "Images") (tackon #Target #New_name))
  212.                     )
  213.                 )
  214.                 )
  215.             )
  216.  
  217.             (copyfiles
  218.                 (source "OpusMagellan:DOpus_Install/MWB8/Images")
  219.                 (dest (tackon #Target "Images"))
  220.                 (all)
  221.                 (optional force)
  222.                 )
  223.             )
  224.         )
  225.  
  226.     ;- Copy the Colours guide
  227.     
  228.         (if    (askbool (prompt #Title_msg
  229.                     "Wir haben auch einige einfache Abkürzungen"
  230.                     " beigepackt, die Ihnen ein schnelles Einstellen der MagicWorkbench-Farben erlauben.\n\n"
  231.                     "Wollen Sie dieses \"Colours\"-Verzeichnis installieren?")
  232.                 (default 1)
  233.                 (help "Dieser Teil installiert das MWB-Farben-Verzeichnis.")
  234.             )
  235.             (copyfiles
  236.                 (source "OpusMagellan:DOpus_Install/MWB8/Colors")
  237.                 (dest (tackon #Target "Colors"))
  238.                 (all)
  239.                 (infos)
  240.                 (optional force)
  241.             )
  242.         )
  243.             
  244.     ;- Copy the new icons (for programs, files, etc)
  245.     
  246.         (if    (askbool (prompt #Title_msg
  247.                     "Die alten DOpus5-Dateipiktogramme werden nun ersetzt "
  248.                     "durch MagicWorkbench-Versionen.\n\n"
  249.                     "Wichtig: Für den Fall, daß Sie einige Tooltypes im "
  250.                     "Hauptpiktogramm von DirectoryOpus geändert haben, bleibt dies ungeändert. "
  251.                     "Sie sollten dies manuell installieren, wie es in der Hilfsdatei "
  252.                     "beschrieben ist, die später noch installiert wird.")
  253.                 (choices #Go #Skip)
  254.                 (default 1)
  255.                 (help "Dieser Teil installiert alle Programm- und Dateipiktogramme.")
  256.             )
  257.             (copyfiles 
  258.                 (source "OpusMagellan:DOpus_Install/MWB8/DOpus_Icons")
  259.                 (dest #Target)
  260.                 (all)
  261.                 (optional force)
  262.             )
  263.         )
  264.     
  265.     ;- Copy the Help guide
  266.     
  267.         (if    (askbool (prompt #Title_msg
  268.                     "Eine AmigaGuide-Datei über MWB_DOpus 8, inklusive Tips und Tricks "
  269.                     "wird ins Verzeichnis \"DOpus5:Help\" kopiert.")
  270.                 (choices #Go #Skip)
  271.                 (default 1)
  272.                 (help "Dieser Teil installiert die Hilfsdatei.")
  273.             )
  274.             (copyfiles
  275.                 (source "OpusMagellan:DOpus_Install/MWB8/Help/MWB_DOpus8_Help.guide")
  276.                 (dest (tackon #Target "Help"))
  277.                 (infos)
  278.                 (optional force)
  279.             )
  280.         )
  281.     
  282.     ;- Copy the fonts 
  283.     
  284.         (if    (askbool (prompt #Title_msg
  285.                     "Einige Zusatzzeichensätze werden ins Verzeichnis \"Fonts:\" kopiert.\n"
  286.                     "Diese sind zur Nutzung von MWB_DOpus nicht zwingend notwendig.\n\n"
  287.                     "Die Zeichensätze sind:\n"
  288.                     "\"P0T-NOoDLE\",\n"
  289.                     "\"P0T-Prop\",\n"
  290.                     "\"PolarSmall\", and,\n"
  291.                     "\"PolarSmall-Prop\".")
  292.                 (choices #Go #Skip)
  293.                 (default 1)
  294.                 (help "Dieser Teil installiert einige Zusatzzeichensätze.")
  295.             )
  296.             (copyfiles
  297.                 (source "OpusMagellan:DOpus_Install/MWB8/Fonts")
  298.                 (dest "Fonts:")
  299.                 (all)
  300.                 (optional force)
  301.             )
  302.         )
  303.     
  304.     ;- Copy the backdrops (ask where first) 
  305.     
  306.         (if    (askbool (prompt #Title_msg
  307.                     "Wollen Sie die Hintergrundbilder installieren?\n")
  308.                 (default 1)
  309.                 (help "Dieser Teil installiert einige Hintergrundbilder.")
  310.             )
  311.             (copyfiles
  312.                 (source "OpusMagellan:DOpus_Install/MWB8/Backdrops")
  313.                 (dest (askdir (prompt "Wählen Sie für die Hintergründe einen Installationsort.")
  314.                      (help @askdir-help)
  315.                      (default "Sys:Prefs/Presets")
  316.                     )    
  317.                 )
  318.                 (all)
  319.                 (optional force)
  320.             )
  321.         )
  322.     
  323.     ;- Copy the Index files (ask where first) 
  324.     
  325.         (if    (askbool (prompt #Title_msg
  326.                     "Wollen Sie das Index-Bild installieren?\n\n"
  327.                     "Es erleichtert das Auffinden bestimmter Piktogramme"
  328.                     " in dieser Sammlung.\n\n"
  329.                     "Das Bild wird installiert in \"Dopus5:Help\"")
  330.                 (default 1)
  331.                 (help "Dieser Teil installiert das Index-Bild. Tun Sie's!")
  332.             )
  333.             (copyfiles
  334.                 (source "OpusMagellan:DOpus_Install/MWB8/Index")
  335.                 (dest (tackon #Target "Help"))
  336.                 (infos)
  337.                 (all)
  338.                 (optional force)
  339.             )
  340.         )
  341.     
  342.     ;- Copy the Disk icons (ask where first)
  343.     
  344.         (if    (askbool (prompt #Title_msg
  345.                 "Wollen Sie einige Diskpiktogramme installieren?\n"
  346.                 " Sie können mit diesen die bestehenden Diskpiktogramme"
  347.                 " ersetzen, wenn Sie dies wünschen.\n\n"
  348.                 "Sie müssen diese Ersetzungen allerdings selbst mit "
  349.                 "IconEdit (von der Workbench) oder MUIReIcon "
  350.                 "(vom Aminet) durchführen.")
  351.             (default 1)
  352.             (help "Dieser Teil installiert einige Diskpiktogramme.\n"
  353.                 "Ihre bestehenden Piktogramme werden nicht ersetzt.")
  354.             )
  355.             (copyfiles
  356.                 (source "OpusMagellan:DOpus_Install/MWB8/Disk_Icons")
  357.                 (dest (askdir (prompt "Wo wollen Sie die Diskpiktogramme "
  358.                          "installieren:")
  359.                      (help @askdir-help)
  360.                      (default "sys:prefs/presets")
  361.                     )    
  362.                 )
  363.                 (all)
  364.                 (optional force)
  365.             )
  366.         )
  367.  
  368.  
  369.         (message #Title_msg
  370.             "Installation durchgeführt!\n\n"
  371.             "Lesen Sie in jedem Fall die Hilfsdatei in"
  372.             " \"DOpus5:Help\" für weitere Informationen. Dort erfahren Sie auch,"
  373.             " wie die MagicWorkbench-Farben eingestellt werden usw.")
  374.  
  375.         )
  376.     )
  377. )
  378.  
  379.  
  380. ;
  381. ; Procedure install_support  ;
  382. ; add the extra non-program bits
  383. ;
  384.  
  385. (procedure install_support
  386.  
  387.     (set #Title_msg "Directory Opus Magellan Supportdateien.\n\n")
  388.         
  389.     (if    (<> #Inst_choice 0)
  390.         (if     (askbool (prompt #Title_msg
  391.                     "Wollen Sie die folgenden Schubladen und dazugehörigen Dateien für Opus Magellan installieren:-\n"
  392.                     "\nButtons, Environment, Groups\nIcons, Images, Settings\n Storage und WBStartup.\n\n"
  393.                     "Diese Verzeichnisse enthalten Konfigurationsdetails,\n"
  394.                     "und dazugehörige Dateien, die für eine korrekte Funktion von Opus Magellan"
  395.                     " benötigt werden.")
  396.                 (help "Ja, tun Sie's!")
  397.                 (default 1)
  398.             )
  399.             (set #Doit 1)
  400.             (set #Doit 0)
  401.         )
  402.         (; else tell 'em what we are doing.
  403.         (message #Title_msg
  404.             "Diese Sektion installiert die folgenden Schubladen und dazugehörigen Dateien für Opus Magellan:-\n"
  405.             "\nButtons, Environment, Groups\nIcons, Images, Settings\n Storage, System und WBStartup.\n\n"
  406.             "Diese Verzeichnisse enthalten Konfigurationsdetails,\n"
  407.             "und dazugehörige Dateien, die für eine korrekte Funktion von Opus Magellan"
  408.             " benötigt werden.")
  409.         )
  410.     )
  411.  
  412.     (if    (OR (= #Inst_choice 0) (= #Doit 1))
  413.         (
  414.         (set #Changed 1)
  415.         (set #Want_disk 1)
  416.         (get_disk)
  417.  
  418.         (working #Title_msg
  419.             "Installiere die Haupt-Supportkomponenten.\n\n"
  420.              "Dies dauert nicht allzu lang....")
  421.  
  422.         (copyfiles 
  423.             (source "OpusMagellan:DOpus_Install/SupportA")
  424.             (dest #DOpus_Dest)
  425.             (infos)
  426.             (files)
  427.             (all)
  428.          (optional force)
  429.         )
  430.  
  431.  
  432.         (complete 70)
  433.         
  434.         (if #Is_update ;if update then give choice
  435.              (if    (askbool (prompt #Title_msg
  436.                     "Wollen Sie Ihre alten Konfigurationen für Knöpfe,"
  437.                     " Werkzeugleisten, Menüs, Umgebung und Einstellungen"
  438.                     " mit den neuen Standardeinstellungen überschreiben?\n\n"
  439.                     "Sie können die zu installierenden Teile später wählen, aber Sie müssen"
  440.                     " Ihre Konfiguration eventuell neu einstellen, wenn Sie diese neuen Teile"
  441.                     " installieren. Alternativ können Sie auch die Datei"
  442.                     " SupportB.lha von der Installations-CD später entpacken und die"
  443.                     " spezifischen Teile manuell installieren.")
  444.                     (help "Dies erlaubt Ihnen die Wahl bestimmter Teile Ihres alten"
  445.                         " Opus-Verzeichnisses zu erneuern oder unverändert zu lassen. Wenn Sie unsicher sind, wählen Sie JA.")
  446.                 )
  447.                 (
  448.                 (copyfiles 
  449.                     (prompt #Title_msg
  450.                         "Wählen Sie die zu installierenden Knöpfe/Menüs usw.")
  451.                     (source "OpusMagellan:DOpus_Install/SupportB/Buttons")
  452.                     (dest (tackon #DOpus_Dest "Buttons"))
  453.                     (all)
  454.                     (confirm)
  455.                     (help "Wählen Sie die Dateien, die Sie kopieren möchten. Im Zweifelsfall wählen Sie alle an!")
  456.                 )
  457.                 (copyfiles 
  458.                     (prompt #Title_msg
  459.                     "Wählen Sie die zu installierenden Umgebungsdateien.")
  460.                     (source "OpusMagellan:DOpus_Install/SupportB/Environment")
  461.                     (dest (tackon #DOpus_Dest "Environment"))
  462.                     (all)
  463.                     (confirm)
  464.                     (help "Wählen Sie die Dateien, die Sie kopieren möchten. Im Zweifelsfall wählen Sie alle an!")
  465.                 )
  466.                 (copyfiles 
  467.                     (prompt #Title_msg
  468.                     "Wählen Sie die zu installierenden Einstellungsdateien.")
  469.                     (source "OpusMagellan:DOpus_Install/SupportB/Settings")
  470.                     (dest (tackon #DOpus_Dest "Settings"))
  471.                     (all)
  472.                     (confirm)
  473.                     (help "Wählen Sie die Dateien, die Sie kopieren möchten. Im Zweifelsfall wählen Sie alle an!")
  474.                 )
  475.                 )
  476.             )
  477.             (copyfiles ; if not update just copy to dest
  478.                 (source "OpusMagellan:DOpus_Install/SupportB")
  479.                 (dest #DOpus_Dest)
  480.                 (all)
  481.             )    
  482.         )
  483.  
  484.         (complete 90)
  485.  
  486.         )
  487.     )
  488.  
  489. )
  490.  
  491. ;
  492. ; Procedure get_dir ;
  493. ; get place to install Opus
  494. ;
  495.  
  496. (procedure get_dir
  497.  
  498.     (if #DOpus_Dest ; if we have a valid destination?
  499.         (if    (askbool (prompt #Title_msg
  500.                     "Opus 5 ist in diesem System schon in dem\n"
  501.                     "Verzeichnis \"" #DOpus_Dest"\" installiert."
  502.                     "\n\nWollen Sie diese Version in dem Verzeichnis installieren?")
  503.                 (help "Der Installer hat entdeckt, daß Sie schon eine Kopie von "
  504.                     "Opus 5 installiert haben. Sollte dies falsch sein oder "
  505.                     "Sie wollen das Update woanders installieren, wählen Sie "
  506.                     "NEIN an, ansonsten JA.")
  507.                 (default 1)
  508.             )
  509.             (set #Is_update 1) ; if user wants in same place
  510.             (set #DOpus_Dest    ; if user wants in different place
  511.                 (tackon    (askdir
  512.                     (prompt "Directory Opus 5 wird in seinem eigenen"
  513.                               " Verzeichnis auf der Festplatte installiert.\n"
  514.                               "Wo soll das Verzeichnis 'Opus 5' erzeugt werden?")
  515.                     (help @askdir-help)
  516.                     (default @default-dest)
  517.                     )
  518.                     "Opus5"
  519.                 )
  520.             )
  521.         )
  522.         (set #DOpus_Dest ; else if not an update, get a location for program
  523.             (tackon
  524.                 (askdir
  525.                     (prompt "Directory Opus 5 wird in seinem eigenen"
  526.                               " Verzeichnis auf der Festplatte installiert.\n"
  527.                               "Wo soll das Verzeichnis 'Opus 5' erzeugt werden?")
  528.                     (help @askdir-help)
  529.                     (default @default-dest)
  530.                 )
  531.                 "Opus5"
  532.             )
  533.         )
  534.     )
  535.     
  536.     
  537.     ; make DOpus drawer & icon if not there
  538.     
  539.     (if     (NOT #Is_update)
  540.             (makedir #DOpus_Dest (infos))
  541.     )
  542.     
  543.     ; at this point we have a valid destination, so we tell installer where
  544.     ; the application will end up so the exit page will be correct -- also,
  545.     ; the installation log file (if any) will be copied to the destination
  546.         
  547.     (set @default-dest #DOpus_Dest)
  548.     (makeassign "DOPUSDEST" #DOpus_Dest (safe))
  549. )
  550.  
  551. ;
  552. ; Procedure backup_old  
  553. ; if an update to same place then backup bits
  554. ; Also handle Catalogs
  555. ; Non-English installations should modify this section
  556. ;
  557.  
  558. (procedure backup_old
  559.     
  560.     ; must have had an old 'Dopus5:' installed to get here so warn.
  561.  
  562.     (message #Title_msg
  563.         "********** WARNUNG *************\n\n"
  564.         "Wenn Sie momentan eine ältere Version von Opus 5 laufen haben,"
  565.         " so kann Ihr System instabil werden, wenn"
  566.         " Sie Opusfunktionen ausführen, während Sie diese neue Version"
  567.         " installieren.\n\n"
  568.         "Wir empfehlen Ihnen, daß Sie entweder Opus 5 verlassen, bevor Sie"
  569.         " diese neue Version installieren, oder Ihren Rechner NEU STARTEN"
  570.         " direkt, nachdem die Installation durchgeführt wurde.")
  571.  
  572.     (if #Is_update 
  573.         (
  574.         (if    (askbool (prompt #Title_msg
  575.                     "Sie haben Directory Opus bereits auf Ihrer Festplatte installiert.\n\n"
  576.                     "Wollen Sie die benutzerkonfigurierten Dateien SICHERN?.\n\n"
  577.                     "Dies schließt die Verzeichnisse Buttons, Environment, FileTypes, Icons,"
  578.                     " Images, Settings, Storage, und System ein.")
  579.                 (help "Zu Ihrer eigenen Sicherhei, wählen Sie Ja.")
  580.                 (default 1)
  581.             )
  582.             (
  583.             (set #Bkup 1)
  584.             (set #New_name (cat "OLD" #Bkup))
  585.             (while     (= (exists (cat "DOPUSDEST:" #New_name) (noreq)) 2)
  586.                 (
  587.                 (set #Bkup (+ #Bkup 1))
  588.                 (set #New_name (cat "OLD" #Bkup))
  589.                 )
  590.             )
  591.             
  592.             (set #Whichfiles 
  593.                 (askoptions
  594.                     (prompt "Sichern alter Dateien nach \""#New_name"\"\n"
  595.                         "Wählen Sie bitte die zu sichernden Verzeichnisse:-")
  596.                     
  597.                     (choices
  598.                         "Buttons"    ;0
  599.                         "Environment"    ;1
  600.                         "FileTypes"    ;2
  601.                         "Icons"        ;3
  602.                         "Images"    ;4
  603.                         "Storage"    ;5
  604.                         "Settings"    ;6
  605.                     )
  606.                     (help "Dies erlaubt Ihnen die Wahl bestimmter Teile Ihres alten"
  607.                         " Opus-Verzeichnisses, die gesichert werden sollen. Wenn Sie unsicher sind, wählen Sie alle an.")
  608.                     (default 127)
  609.                 )
  610.             )
  611.  
  612.             (working "Sichere alte Dateien ins neue Verzeichnis \""#New_name"\"")
  613.             (set #New_name (tackon "DOPUSDEST:" #New_name))
  614.             (makedir #New_name)
  615.  
  616.             (if (AND (= (exists "DOPUSDEST:Buttons" (noreq)) 2) (IN #Whichfiles 0))
  617.                 (copyfiles 
  618.                 (source "DOPUSDEST:Buttons")
  619.                 (dest (tackon #New_name "Buttons"))
  620.                 (all)
  621.                 (optional force)
  622.                 )
  623.             )
  624.             (if (AND (= (exists "DOPUSDEST:Environment" (noreq)) 2) (IN #Whichfiles 1))
  625.                 (copyfiles
  626.                 (source "DOPUSDEST:Environment")
  627.                 (dest (tackon #New_name "Environment"))
  628.                 (all)
  629.                 (optional force)
  630.                 )
  631.             )
  632.             (if (AND (= (exists "DOPUSDEST:FileTypes" (noreq)) 2) (IN #Whichfiles 2))
  633.                 (copyfiles
  634.                 (source "DOPUSDEST:FileTypes")
  635.                 (dest (tackon #New_name "FileTypes"))
  636.                 (all)
  637.                 (optional force)
  638.                 )
  639.             )
  640.             (if (AND (= (exists "DOPUSDEST:Icons" (noreq)) 2) (IN #Whichfiles 3))
  641.                 (copyfiles
  642.                 (source "DOPUSDEST:Icons")
  643.                 (dest (tackon #New_name "Icons"))
  644.                 (all)
  645.                 (optional force)
  646.                 )
  647.             )
  648.             (if (AND (= (exists "DOPUSDEST:Images" (noreq)) 2)  (IN #Whichfiles 4))
  649.                 (copyfiles
  650.                 (source "DOPUSDEST:Images")
  651.                 (dest (tackon #New_name "Images"))
  652.                 (all)
  653.                 (optional force)
  654.                 )
  655.             )
  656.             (if (AND (= (exists "DOPUSDEST:Storage" (noreq)) 2)  (IN #Whichfiles 5))
  657.                 (copyfiles
  658.                 (source "DOPUSDEST:Storage")
  659.                 (dest (tackon #New_name "Storage"))
  660.                 (all)
  661.                 (optional force)
  662.                 )
  663.             )
  664.             (if (AND (= (exists "DOPUSDEST:Settings" (noreq)) 2)  (IN #Whichfiles 6))
  665.                 (copyfiles
  666.                 (source "DOPUSDEST:Settings")
  667.                 (dest (tackon #New_name "Settings"))
  668.                 (all)
  669.                 (optional force)
  670.                 )
  671.             )
  672.             )
  673.         )
  674.         ; and for non-english versions?
  675.     
  676.         (if    (= (exists "DOPUSDEST:Catalogs" (noreq)) 2)
  677.             (
  678.             (set #Bkup 1)
  679.             (set #New_name (cat "Catalogs" #Bkup))
  680.             (while     (= (exists (cat "DOPUSDEST:" #New_name) (noreq)) 2)
  681.                 (
  682.                 (set #Bkup (+ #Bkup 1))
  683.                 (set #New_name (cat "Catalogs" #Bkup))
  684.                 )
  685.             )
  686.  
  687.             (if    (askbool (prompt #Title_msg
  688.                         "Ein Verzeichnis \"Catalogs\" wurde entdeckt!"
  689.                         " Opus Magellan benötigt neue Sprachdateien,"
  690.                         " wenn es nicht in Englisch genutzt werden soll. Diese"
  691.                         " Installation stellt Ihnen neue deutsche Catalog-Dateien"
  692.                         " zur Verfügung. Weitere Catalog-Dateien in anderen Sprachen"
  693.                               " werden im Aminet oder von lokalen Vertreibern"
  694.                               " angeboten werden.\n"
  695.                         "Ihr aktuelles Verzeichnis \"Catalogs\" kann als "
  696.                         "\""#New_name"\" gesichert werden.\n\n"
  697.                         "Wollen Sie die ALTEN Catalog-Dateien sichern?")
  698.                     (default 1)
  699.                     (help "Im Zweifelsfall wählen Sie Ja.")
  700.                 )
  701.                 (
  702.                 (rename "DOPUSDEST:Catalogs" (tackon "DOPUSDEST:" #New_name))
  703.                 (makedir "DOPUSDEST:Catalogs")
  704.                 )
  705.             )
  706.             )
  707.         )
  708.         )
  709.     )
  710. )
  711.     
  712. ;
  713. ; Procedure install_core
  714. ; install the program files and new bits
  715. ; MUST HAVE A VALID DOPUSDEST ;
  716.  
  717. (procedure install_core
  718.  
  719.     (set #Title_msg "Directory Opus Magellan Kern-Installation.\n\n")
  720.  
  721.     (if #O_DOpus_Dest (backup_old)) ; Is re-install so give save option
  722.     
  723.     (if    (<> #Inst_choice 0)
  724.         (if    (askbool (prompt #Title_msg 
  725.                     "Wollen Sie die Hauptdateien\n"
  726.                     " von Opus Magellan installieren?")
  727.                 (help "Ja, tun Sie's!")
  728.             )
  729.             (set #Doit 1)
  730.             (set #Doit 0)
  731.         )
  732.     )
  733.  
  734.     (if    (OR (= #Inst_choice 0) (= #Doit 1))
  735.         (
  736.         (set #Changed 1)
  737.         (set #Inst_core 1)
  738.         (set #Want_disk 1)
  739.         (get_disk)
  740.         (working #Title_msg
  741.              "Installiere die Hauptkomponenten des Programms.\n\n"
  742.              "Dies dauert so circa eine Minute....")
  743.  
  744.         (copyfiles 
  745.             (source "OpusMagellan:DOpus_Install/Core")
  746.             (dest #DOpus_Dest)
  747.             (infos)
  748.             (files)
  749.             (all)
  750.          (optional force)
  751.         )
  752.  
  753.     ;
  754.     ; install non-english catalogs
  755.     ;
  756.  
  757.         (copyfiles 
  758.             (source "OpusMagellan:DOpus_Install/CatFiles")
  759.             (dest #DOpus_Dest)
  760.             (infos)
  761.             (files)
  762.             (all)
  763.          (optional force)
  764.         )
  765.  
  766.         (complete 50)
  767.     
  768.     ;
  769.     ; tidyup
  770.     ;
  771.     ; make sure update module is re-initialised
  772.  
  773.         (run "c:delete DOPUSDEST:system/update-history FORCE")
  774.  
  775.         (run "c:protect DOPUSDEST:c/DopusRT5 +p")
  776.         (run "c:protect DOPUSDEST:ARexx/#? +s")
  777.     
  778.     
  779.     ;Install the other bits
  780.         
  781.         (copyfiles 
  782.             (source "OpusMagellan:Install_Magellan")
  783.             (dest #DOpus_Dest)
  784.             (infos)
  785.             (files)
  786.         )
  787.     
  788.         (copyfiles 
  789.             (source "OpusMagellan:LiesMich.55")
  790.             (dest #DOpus_Dest)
  791.             (infos)
  792.             (files)
  793.         )
  794.  
  795.         (copyfiles 
  796.             (source "OpusMagellan:LiesMich.Magellan")
  797.             (dest #DOpus_Dest)
  798.             (infos)
  799.             (files)
  800.         )
  801.  
  802.     ; just in case use has installed LoadDB in C:, update it
  803.  
  804.         (if (exists "C:LoadDB" (noreq))
  805.             (copyfiles 
  806.                 (source (tackon #DOpus_Dest "C/LoadDB"))
  807.                 (dest "C:")
  808.                 (files)
  809.             )
  810.         )
  811.         )
  812.     )
  813. )
  814.  
  815.  
  816.  
  817. ;
  818. ; Procedure do_startup  ;
  819. ; modify S:User-Startup
  820. ; set the script for user startup
  821.  
  822.  
  823. (procedure do_startup
  824.     
  825.     (if    (= #Inst_core 1)
  826.         (startup "DirectoryOpus 5"
  827.             (prompt    #Title_msg
  828.                 "Die folgenden Anweisungen werden zu Ihrer "
  829.                 "\"S:User-Startup\" hinzugefügt, so daß Ihr System korrekt "
  830.                 "zur Nutzung von Opus konfiguriert ist.\n\n"
  831.                 "ASSIGN DOpus5: \"" #DOpus_Dest "\"\n"
  832.                 "PATH DOpus5:c Add \n")
  833.             (help "Dies fügt Anweisungen in Ihre S:user-startup-Datei ein, "
  834.                 "damit Directory Opus korrekt funktionieren kann")
  835.             (command "ASSIGN DOpus5: \"" #DOpus_Dest "\"\n")
  836.             (command "PATH DOpus5:c Add \n")
  837.         )
  838.     )
  839. )
  840.     
  841. ;
  842. ; Procedure find_startup ;
  843. ; check what they have installed
  844. ;
  845.  
  846. (procedure find_startup
  847.  
  848.     ;check if they have our load_wb installed
  849.  
  850.     (if (exists #Dopus_prog (noreq))
  851.         (
  852.         (set #Vernum (getversion #Dopus_prog))
  853.         (set #Dop_ver (/ #Vernum 65536))
  854.         (set #Dop_rev (- #Vernum (* #Dop_ver 65536) ) )
  855.         )
  856.     )
  857.     
  858.     (set #Has_loaddb 0)
  859.     (if (exists #Loadwb (noreq))
  860.         ( ; yes
  861.         (set #Vernum (getversion #Loadwb))
  862.         (set #Wb_ver (/ #Vernum 65536))
  863.         (set #Wb_rev (- #Vernum (* #Wb_ver 65536) ) )
  864.         (if (>= #Wb_ver 42) ; should be ours
  865.             (set #Has_loaddb 1) ; yes
  866.             (set #Has_loaddb 0) ; no
  867.         )
  868.         )
  869.     )
  870.     
  871.     (if (exists #Loadwb_old (noreq))
  872.         ( ; yes
  873.         (set #Has_loadwb_old 1)
  874.         (set #Vernum (getversion #Loadwb_old))
  875.         (set #Op_ver (/ #Vernum 65536))
  876.         (set #Op_rev (- #Vernum (* #Op_ver 65536) ) )
  877.         )
  878.         (set #Has_loadwb_old 0) ;no
  879.     )
  880. )
  881.  
  882.  
  883. ;
  884. ; Procedure remove_wb  ;
  885. ;
  886.  
  887. (procedure remove_wb
  888.  
  889.     ; does user have loadwb_old or loaddb already installed 
  890.  
  891.     (if (= #Has_loadwb_old 1) ; if loadwb_old exhists
  892.         (copyfiles
  893.             (source "C:LoadWB_old")
  894.             (dest "C:")
  895.             (newname "LoadWB")
  896.         )
  897.     )
  898. )
  899.  
  900. ;
  901. ; Procedure startup_options ;
  902. ;
  903.  
  904. (procedure startup_options
  905.  
  906.     (set #Title_msg "Directory Opus 5 Startoptionen.\n\n")
  907.     (if #DOpus_Dest
  908.         (
  909.         (find_startup)
  910.     
  911.         (if    ( = #Inst_choice 1)
  912.             (if     (askbool (prompt #Title_msg
  913.                         "Wollen Sie die Startoptionen\n"
  914.                         " von Opus Magellan ändern?")
  915.                     (help "Im Zweifelsfall wählen Sie \"Ja\"")
  916.                 )
  917.                 (set #Doit 1)
  918.                 (set #Doit 0)
  919.             )
  920.         )
  921.  
  922.         (if    (OR (<> #Inst_choice 1) (= #Doit 1))
  923.             (
  924.             (set #Curr_choice 0)
  925.                 
  926.             ;Get the users startup choices
  927.             (set #Mode (askchoice
  928.                 (prompt #Title_msg
  929.                     "Opus 5 kann automatisch beim Booten Ihres Rechners"
  930.                     " gestartet werden. Welchen Start wünschen Sie?")
  931.                 (help    @askchoice-help    )
  932.                 (choices "Opus 5 als Workbenchersatz!" ;0
  933.                          "Opus 5 beim Booten starten"            ;1
  934.                          "Opus 5 verborgen starten"        ;2
  935.                          "Opus 5 beim Booten nicht starten"  ;3
  936.                          "Keine Änderung")                ;4
  937.                 (default #Curr_choice)
  938.                 )
  939.             )
  940.     
  941.             (if (<> #Mode 4) (set #Changed 1))
  942.  
  943.             ; use as wb replacement
  944.             (if (= #Mode 0)
  945.                 (
  946.                 ; does user have loadwb_old or loaddb already installed 
  947.                 (if (= #Has_loadwb_old 0) ; if loadwb_old not exhist
  948.                     (if (= #Has_loaddb 0) ; then is  loadwb actually loaddb
  949.                         (if (exists #Loadwb (noreq)) ; no. Good then does loadwb exhist?
  950.                             (rename "c:LoadWB" "c:LoadWB_old") ; then rename it
  951.                         )
  952.                     )
  953.                 )
  954.     
  955.                 ; then copy our loaddb as loadWB 
  956.                 (copyfiles
  957.                     (source (tackon #DOpus_Dest "c/LoadDB"))
  958.                     (dest "C:")
  959.                     (newname "LoadWB")
  960.                 )
  961.                 ) ;else remove the loadDB
  962.                 (if (AND (<> #Mode 4) (= #Has_loaddb 1)) (remove_wb))
  963.  
  964.             )
  965.         
  966.             
  967.  
  968.                 
  969.             ; start on boot normal
  970.             (if (= #Mode 1)
  971.                 (
  972.                 (copyfiles
  973.                     (source (tackon #DOpus_Dest "wbstartup/Opus5_Startup"))
  974.                     (dest "SYS:WBStartup")
  975.                     (infos)
  976.                 )
  977.         
  978.                 (tooltype
  979.                     (dest "SYS:WBStartup/Opus5_Startup")
  980.                     (settooltype "CX_POPUP" "YES")
  981.                 )
  982.                 )
  983.             )
  984.         
  985.         
  986.             ; start on iconified normal
  987.             (if (= #Mode 2)
  988.                 (
  989.                 (copyfiles
  990.                     (source (tackon #DOpus_Dest "wbstartup/Opus5_Startup"))
  991.                     (dest "SYS:WBStartup")
  992.                     (infos)
  993.                 )
  994.         
  995.                 (tooltype
  996.                     (dest "SYS:WBStartup/Opus5_Startup")
  997.                     (settooltype "CX_POPUP" "NO")
  998.                 )
  999.                 )
  1000.             )
  1001.             )
  1002.         )
  1003.         )
  1004.         (message #Title_msg
  1005.             "Hoppla, das geht nicht!\nDirectory Opus ist noch nicht installiert!")
  1006.     )
  1007.  
  1008. )
  1009.  
  1010. ; Procedure install_arcdir
  1011. ; Part of Script to install ArcDir.dopus5 1.0.
  1012. ; Developed by Edmund Vermeulen (edmundv@grafix.xs4all.nl).
  1013. ;
  1014.  
  1015. (procedure install_arcdir
  1016.  
  1017.     (set #Title_msg "ARexx ArcDir Installation.\n\n")
  1018.     (if    (askbool (prompt #Title_msg 
  1019.                 "ArcDir wurde entwickelt von Edmund Vermeulen.\n"
  1020.                 "Es erlaubt Ihnen den einfachsten Umgang mit LHA, LZH,"
  1021.                 " und LZX-Dateien mittels Directory Opus 5\n"
  1022.                 "\n WÄRMSTENS EMPFOHLEN -Installieren Sie es!\n\n"
  1023.                 "Wollen Sie das ARexx ArcDir-Archiv in Ihrem"
  1024.                 " Opus 5-Verzeichnis installieren?\n")
  1025.             (help "Ja, tun Sie's! Es ist großartig!")
  1026.         )
  1027.         (
  1028.         (set #Changed 1)
  1029.         (set #Want_disk 2)
  1030.         (get_disk)
  1031.  
  1032.     ; delete old stuff
  1033.  
  1034.     
  1035.         (if    (= (getversion "DOPUSDEST:ARexx/LhADir.dopus5") 65536)
  1036.             (message #Title_msg
  1037.                 "Version 1.0 von LhADir.dopus5 entdeckt!\n\n"
  1038.                 "Bitte beachten Sie, daß ArcDir.dopus5 keinerlei Veränderungen "
  1039.                 "an der Werkzeugleiste oder anderen Knöpfen in Opus benötigt.\n\n"
  1040.                 "Sie sollten alle Verweise auf LhADir.dopus5 entfernen. Dies geschieht "
  1041.                 "üblicherweise durch das Kopieren der Standard-Werkzeugleiste über "
  1042.                 "Ihre alte Werkzeugeleiste."
  1043.               )
  1044.         )
  1045.     
  1046.         (if    (= (exists "DOPUSDEST:ARexx/LhADir.dopus5" (noreq)) 1)
  1047.             (if    (askbool (prompt #Title_msg
  1048.                         "LhADir.dopus5 entdeckt.\n\n"
  1049.                         "LhADir wurde durch ArcDir ersetzt und wird nicht mehr "
  1050.                         "benötigt. Sind Sie damit einverstanden, es zu löschen?")
  1051.                     (help "Wählen Sie 'Ja', um LhADir.dopus5 und dazugehörige Dateien "
  1052.                     "aus Ihrem System zu löschen oder 'Nein', um diese dort zu belassen.")
  1053.                 )
  1054.                 ( ;yes
  1055.                 (delete "DOPUSDEST:ARexx/LhADir.dopus5")
  1056.                 (delete "DOPUSDEST:ARexx/LhADir-handler")
  1057.                 (delete "DOPUSDEST:ARexx/NewLhA.dopus5")
  1058.                 (delete "DOPUSDEST:C/LhADirList")
  1059.                 (delete "Locale:Catalogs/nederlands/LhADir.catalog")
  1060.                 (delete "Locale:Catalogs/deutsch/LhADir.catalog")
  1061.                 (delete "Locale:Catalogs/français/LhADir.catalog")
  1062.                 (delete "Locale:Catalogs/norsk/LhADir.catalog")
  1063.                 (delete "DOPUSDEST:Buttons/LhADir Buttons")
  1064.                 (delete "DOPUSDEST:Buttons/toolbar_LhADir")
  1065.                 )
  1066.             )
  1067.         )
  1068.     
  1069.     ; ask questions first, copy files later
  1070.     
  1071.         (set #Storeold
  1072.             (if    (askbool (prompt #Title_msg
  1073.                         "Alte Dateitypen für LHA and LZX werden überschrieben. "
  1074.                         "Wollen Sie eine sichere Kopie von diesen im Verzeichnis "
  1075.                         "'DOpus5:Storage' anlegen?\n\n"
  1076.                         "Im Falle einer Deinstallation werden diese Dateien reinstalliert.")
  1077.                     (help "Wählen Sie 'Ja', um die Dateien 'LHA archive' und 'LZX archive' "
  1078.                         "aus dem Verzeichnis 'DOpus5:Filetypes' ins Verzeichnis 'DOpus5:Storage' "
  1079.                         "zu kopieren. Wählen Sie 'Nein', um die aktuellen (Standard-) Dateitypen für "
  1080.                         "LHA und LZX im Verzeichnis 'Storage' beizubehalten.\n\n"
  1081.                         "Bei einer Deinstallation werden diese Dateitypen aus dem "
  1082.                         "Verzeichnis 'Storage' ins Verzeichnis 'Filetypes' reinstalliert. "
  1083.                         "Sie können eine Deinstallation durch erneuten Aufruf dieses "
  1084.                         "Installationsskriptes durchführen.")
  1085.                 )
  1086.             )
  1087.         )
  1088.         
  1089.         (set #how
  1090.             (+
  1091.                 (askchoice
  1092.                 (prompt #Title_msg
  1093.                     "Wie wünschen Sie, daß ein Verzeichnis aufgelistet wird, wenn Sie "
  1094.                     "es doppelklicken?")
  1095.                 (help @askchoice-help)
  1096.                 (choices
  1097.                 (cat #proprender "In einen neuen Lister (Browse).")
  1098.                 "Im selben Lister (GetDir)."
  1099.                 )
  1100.                 )
  1101.                 (* 2
  1102.                 (askchoice
  1103.                     (prompt #Title_msg
  1104.                         "Was soll geschehen, wenn Sie ein Archiv in einem anderen "
  1105.                         "Lister ablegen?")
  1106.                     (help @askchoice-help)
  1107.                     (choices
  1108.                         (cat #proprender "Entpacken (mit LhA/LZX).")
  1109.                             "Auflisten (mit ArcDir)."
  1110.                     )
  1111.                 )
  1112.                 )
  1113.             )    
  1114.         )
  1115.  
  1116.         (set #Language
  1117.             (if
  1118.                 (= (exists "ENV:Language" (noreq)) 1)
  1119.                 (getenv "Language")
  1120.                     ""
  1121.                 )
  1122.         )
  1123.  
  1124.         (set #Catalogs
  1125.             (askoptions
  1126.                 (prompt #Title_msg
  1127.                     "Welche Catalog-Dateien wollen Sie installieren?\n"
  1128.                     "(English ist eingebaut.)")
  1129.                 (help @askoptions-help)
  1130.                 (choices (cat #proprender "Nederlands") "Deutsch" "Français" "Norsk")
  1131.                 (default 
  1132.                     (+
  1133.                     (= #Language "nederlands")
  1134.                     (* 2 (= #Language "deutsch"))
  1135.                     (* 4 (= #Language "français"))
  1136.                     (* 8 (= #Language "norsk"))
  1137.                     )
  1138.                 )
  1139.                 )
  1140.         )
  1141.         
  1142.         
  1143.     ; copy the files
  1144.     
  1145.         (copyfiles
  1146.             (source "OpusMagellan:DOpus_Install/ArcDir/ARexx")
  1147.             (dest "DOPUSDEST:ARexx")
  1148.             (pattern "#?")
  1149.             (files)
  1150.         )
  1151.         (copyfiles
  1152.             (source "OpusMagellan:DOpus_Install/ArcDir/C")
  1153.             (dest "DOPUSDEST:C")
  1154.             (pattern "#?")
  1155.             (files)
  1156.         )
  1157.     
  1158.         (set #Storedir
  1159.             (if (= (exists "DOPUSDEST:Storage/Filetypes" (noreq)) 2)
  1160.                 ("DOPUSDEST:Storage/Filetypes")
  1161.                 ("DOPUSDEST:Storage")
  1162.             )
  1163.         )
  1164.         (set #N 0)
  1165.         (while
  1166.             (set #Arctype (select #N "LHA" "LZX" ""))
  1167.             (
  1168.             (if #Storeold
  1169.                 (copyfiles
  1170.                     (source (cat "DOPUSDEST:Filetypes/" #Arctype " archive"))
  1171.                     (dest #Storedir)
  1172.                 )
  1173.             )
  1174.             (copyfiles
  1175.                 (source    (select    #how
  1176.                     (cat "OpusMagellan:DOpus_Install/ArcDir/Filetypes/" #Arctype " archive")
  1177.                     (cat "OpusMagellan:DOpus_Install/ArcDir/Storage/Filetypes/" #Arctype " archive_GetDir")
  1178.                     (cat "OpusMagellan:DOpus_Install/ArcDir/Storage/Filetypes/" #Arctype " archive_Browse&DnD")
  1179.                     (cat "OpusMagellan:DOpus_Install/ArcDir/Storage/Filetypes/" #Arctype " archive_GetDir&DnD")
  1180.                     )
  1181.                 )
  1182.                 (dest "DOPUSDEST:Filetypes")
  1183.                 (newname (cat #Arctype " archive"))
  1184.             )
  1185.             (set #N (+ #N 1))
  1186.             )
  1187.         )
  1188.     
  1189.         (set #N 0)
  1190.         (while
  1191.             (set #Thiscat (select #N "nederlands" "deutsch" "français" "norsk" ""))
  1192.             (
  1193.             (if (in #Catalogs #N)
  1194.                 (copyfiles
  1195.                     (source (cat "OpusMagellan:DOpus_Install/ArcDir/Locale/Catalogs/" #Thiscat "/ArcDir.catalog"))
  1196.                     (dest (cat "LOCALE:Catalogs/" #Thiscat))
  1197.                 )
  1198.             )
  1199.             (set #N (+ #N 1))
  1200.             )
  1201.         )
  1202.                 
  1203.     ; Done
  1204.         
  1205.         (message #Title_msg
  1206.             "Installation durchgeführt!\n\n"
  1207.             "Um ArcDir.dopus5 nutzen zu können, muß ARexx aktiviert sein "
  1208.             "durch Start des RexxMast-Programms aus dem Systemverzeichnis.\n\n"
  1209.             "Sie können ArcDir deinstallieren durch Aufruf des Installationskriptes"
  1210.             " aus dem ARCDir-Archiv auf der Opus Magellan-CD."
  1211.         )
  1212.     
  1213.         )
  1214.     )
  1215. )
  1216.  
  1217. ;
  1218. ; Procedure install_docs
  1219. ;
  1220.  
  1221. (procedure install_docs
  1222.  
  1223.     (set #Title_msg "Directory Opus Magellan Handbuch-Installation.\n\n")
  1224.      (set #HB_choice
  1225.       (askchoice
  1226.         (prompt #Title_msg
  1227.             "Bitte wählen Sie aus:-")
  1228.         (help     "PowerGuide-Handbuch installieren\n"
  1229.               "Installiert das Handbuch im Format von"
  1230.                 " PowerGuide auf Ihrer Festplatte im Verzeichnis"
  1231.                 " von Opus Magellan. Das Handbuch im Format von PowerGuide"
  1232.                 " bietet gegenüber herkömmlichen Guide_Dateien den"
  1233.                 " den Vorteil größerer Übersichtlichkeit durch"
  1234.                 " eingebundene Grafiken und eine Suchfunktion."
  1235.                 " PowerGuide wird automatisch mitinstalliert und"
  1236.                 " befindet sich im Verzeichnis des Handbuchs.\n\n"
  1237.             "AmigaGuide-Handbuch installieren\n"
  1238.               "Installiert das Handbuch im Format von AmigaGuide auf"
  1239.                 " Ihrer Festplatte im Verzeichnis von Opus Magellan. Dieses"
  1240.                 " Handbuch wird mit dem Standardprogramm Multiview"
  1241.                 " dargestellt.\n\n"
  1242.                "Beide Handbücher installieren\n"
  1243.                 "Installiert beide Handbücher in beiden Formaten.\n\n"
  1244.                "Kein Handbuch installieren\n"
  1245.                 "Es wird kein Handbuch installiert. Sie können aber die"
  1246.                 " entpsprechenden Dateien später von Hand entpacken"
  1247.                 " (auch wenn wir Ihnen diese Vorgehensweise nicht"
  1248.                 " empfehlen).")
  1249.         (choices
  1250.             "PowerGuide-Handbuch installieren "    ; 0
  1251.             "AmigaGuide-Handbuch installieren "    ; 1 
  1252.             "Beide Handbücher installieren "    ; 2 
  1253.             "Kein Handbuch installieren ")    ; 3
  1254.         (default 2)
  1255.      )
  1256.     )
  1257.  
  1258.         (set #Changed 1)
  1259.         (set #Want_disk 1)
  1260.         (get_disk)
  1261.  
  1262.      (if (= #HB_choice 0)
  1263.           (
  1264.         (working #Title_msg
  1265.              "Installiere das PowerGuide-Handbuch.\n\n"
  1266.              "Dies dauert ein Momentchen....")
  1267.  
  1268.         (copyfiles 
  1269.             (source "OpusMagellan:DOpus_Install/Handbuch")
  1270.             (dest #DOpus_Dest)
  1271.             (infos)
  1272.             (files)
  1273.             (all)
  1274.          (optional force)
  1275.         )
  1276.           )
  1277.      )
  1278.  
  1279.      (if (= #HB_choice 1)
  1280.           (
  1281.         (working #Title_msg
  1282.              "Installiere das AmigaGuide-Handbuch.\n\n"
  1283.              "Dies dauert ein Momentchen....")
  1284.  
  1285.         (copyfiles 
  1286.             (source "OpusMagellan:DOpus_Install/HandbuchMV")
  1287.             (dest #DOpus_Dest)
  1288.             (infos)
  1289.             (files)
  1290.             (all)
  1291.          (optional force)
  1292.         )
  1293.           )
  1294.      )
  1295.  
  1296.      (if (= #HB_choice 2)
  1297.           (
  1298.         (working #Title_msg
  1299.              "Installiere beide Handbücher.\n\n"
  1300.              "Dies dauert ein Momentchen....")
  1301.  
  1302.         (copyfiles 
  1303.             (source "OpusMagellan:DOpus_Install/Handbuch")
  1304.             (dest #DOpus_Dest)
  1305.             (infos)
  1306.             (files)
  1307.             (all)
  1308.          (optional force)
  1309.         )
  1310.  
  1311.         (copyfiles 
  1312.             (source "OpusMagellan:DOpus_Install/HandbuchMV")
  1313.             (dest #DOpus_Dest)
  1314.             (infos)
  1315.             (files)
  1316.             (all)
  1317.          (optional force)
  1318.         )
  1319.           )
  1320.      )
  1321.  
  1322.      (if (= #HB_choice 3)
  1323.         (message #Title_msg
  1324.             "Sie haben kein Handbuch installiert. Sie können dies aber"
  1325.                " später noch nachholen, indem Sie dieses"
  1326.                " Installationsprogramm erneut starten."
  1327.           )
  1328.      )
  1329.  
  1330. )
  1331.  
  1332. ;
  1333. ; Procedure install_complete ;
  1334. ;
  1335.  
  1336. (procedure install_complete
  1337.  
  1338.     (get_dir)
  1339.     (signal_opus)
  1340.     (install_core)
  1341.     (install_support)
  1342.     (install_docs)
  1343.     (install_arcdir)
  1344.     (install_arexx)    
  1345.     (install_mwbextras)
  1346.     (startup_options)
  1347.     (do_startup)
  1348. )
  1349.  
  1350.  
  1351. ;
  1352. ; Real not procedure at last! ;
  1353. ;
  1354.  
  1355.  
  1356. (while    (
  1357.     (set #Title_msg "Directory Opus 5 Installation.\n\n")
  1358.      (set #Inst_choice
  1359.       (askchoice
  1360.         (prompt #Title_msg
  1361.             "Bitte wählen Sie aus:-")
  1362.         (help     "Opus Magellan installieren\n"
  1363.               "Installiert oder updated Opus Magellan auf"
  1364.              " Ihrer Festplatte, einschließlich Programm-"
  1365.              " und Support-Dateien plus Knopfbänke,"
  1366.              " Dateitypen, Umgebung usw. WICHTIG: "
  1367.              "Alle Elemente der alten Konfiguration werden zuerst gesichert.\n\n"
  1368.             "Opus Magellan installieren - benutzerdefiniert\n"
  1369.               "Installiert Opus Magellan wie oben, erlaubt Ihnen aber"
  1370.              " die Wahl der zu installierenden Teile.\n\n"
  1371.             "ARexx ArcDir installieren\n "    
  1372.              "Installiert ArcDir\n\n"
  1373.             "MagicWB-Extras installieren\n"    
  1374.              "Installiert das MagicWorkbench-Archive von"
  1375.              " Bildern, Piktogrammen, Knöpfen und anderen Dateien,"
  1376.              " wie von Trevor Morris und Leo Davidson zur Verfügung gestellt.\n\n"
  1377.             "Opus Magellan Startoptionen ändern"
  1378.              "Erlaubt Ihnen die Änderung der Startoptionen von Opus 5.")
  1379.         (choices
  1380.             "Opus Magellan installieren oder updaten "    ; 0
  1381.             "Opus Magellan installieren - benutzerdefiniert "    ; 1 
  1382.             "Opus Magellan Startoptionen ändern "    ; 2 only if Magellan installed
  1383.             "Fertig ")                ; 3
  1384.         (default 3)
  1385.      )
  1386.     )
  1387.     (<> #Inst_choice 3)
  1388.     )
  1389.     (select #Inst_choice
  1390.         (install_complete)    ;0
  1391.         (install_complete)    ;1
  1392.         (startup_options)    ;2
  1393.     )
  1394. )
  1395.  
  1396. (if    (= #Inst_core 1)
  1397.     (message #Title_msg
  1398.         "Directory Opus 5 registrieren \n"
  1399.         "-----------------------------\n"
  1400.         "Um Ihre wertvolle Investition in Opus 5 zu schützen und "
  1401.         "die Installation zu komplettieren, sollten Sie"
  1402.         " jetzt Opus mit Ihren persönlichen Daten und der Seriennummer "
  1403.         " der Installations-CD registrieren.\n\n"
  1404.         "Dies wäre auch ein guter Moment, die Registrierkarte"
  1405.         " auszufüllen und an Ihren Vertreiber zurückzusenden."
  1406.         " Technische Unterstützung und Garantie wird nur"
  1407.         " gewährt, wenn eine gültige Registrierung beim Vertrieb"
  1408.         " vorliegt.")
  1409. )
  1410.  
  1411. (if    (= #Changed 1)
  1412.     (message #Title_msg
  1413.         "Directory Opus ist jetzt installiert.\n\n"
  1414.         "Wir empfehlen Ihnen, das Installationsskript bis zum Ende durchzuführen,"
  1415.         " die CD zu entfernen und Ihren Rechner NEU ZU STARTEN.")
  1416. )
  1417.  
  1418. ;
  1419. ;Please please ReadMe 
  1420. ;
  1421.  
  1422. (if    (= #Changed 1)
  1423.     (if    (askbool (prompt #Title_msg
  1424.                 "Alle Dinge ändern sich, einschließlich Software.\n\n"
  1425.                 "Weitere Änderungen sind in der Datei 'LiesMich'"
  1426.                 " auf der Installations-CD festgehalten.\n\n"
  1427.                 "Wollen Sie diese Datei jetzt lesen?\n\n")
  1428.             (help "Na los, lesen Sie sie schon.")
  1429.         )
  1430.         (if (> (run "Sys:Utilities/MultiView DOPUSDEST:LiesMich.Magellan") 0)
  1431.             (if (> (run "Sys:Utilities/AmigaGuide DOPUSDEST:LiesMich.Magellan") 0)
  1432.                 (if (> (run "More DOPUSDEST:LiesMich.Magellan") 0)
  1433.                     (
  1434.                     (set #Want_disk 1)
  1435.                     (get_disk)
  1436.                     (run "OpusMagellan:More DOPUSDEST:LiesMich.Magellan")
  1437.                     )
  1438.                 )
  1439.             )
  1440.         )
  1441.     )
  1442. )
  1443.  
  1444. (complete 100)
  1445.  
  1446. (exit "Directory Opus Magellan Installation beendet!")
  1447.  
  1448.  
  1449.